www.gusucode.com > 动网论坛Dvbbs v8.3 > 动网论坛Dvbbs v8.3\code\源程序\boke\PostCls.asp

    <%
'Product DvBoke version 1.00
'Copyright (C) 2004,2005 AspSky.Net. All rights reserved.
'Written By Dvbbs.net Fssunwin
'Web: http://www.aspsky.net/ , http://www.dvbbs.net/
'Email: eway@aspsky.net Sunwin@artbbs.net

Class Cls_DvBoke_Post
Public RootID,PostID
Public PostUserName,CatID,sCatID,PostUserID,Title,Content,JoinTime,sType,SearchKey,PostTitleNote,IsLock,IsBest,Weather
Public Show_Upload,IsTopic,EditMode,MaxLen

Private Act,PageHtml
Private Sub Class_Initialize()
	Show_Upload = 0	'是否显示上传
	IsTopic = 0
	EditMode = "Default"
	RootID = 0
	PostID = 0
	PostUserName = ""
	CatID = -1
	sCatID = -1
	sType = -1	'0=文章,1=收藏,2=链接,3=交易,4=相册
	PostUserID = 0
	Title = ""
	Content = ""
	JoinTime = Now()
	IsLock = 0
	IsBest = 0
	Weather = 0
	MaxLen = 250
	PostTitleNote = ""
End Sub
Private Sub class_terminate()
End Sub

Public Property Let Action(Str)
	Act = Lcase(Str)
End Property

Public Sub LoadForm()
	DvBoke.BokeChannelToJS()
	DvBoke.LoadPage("topic.xslt")
	PageHtml = DvBoke.Page_Strings(10).text
	If Show_Upload = 1 and sType<>2 Then
		PageHtml = Replace(PageHtml,"{$Show_Upload}",DvBoke.Page_Strings(13).text)
	Else
		PageHtml = Replace(PageHtml,"{$Show_Upload}","")
	End If
	If IsTopic = 1 Then
		PageHtml = Replace(PageHtml,"{$TopicFunction1}",DvBoke.Page_Strings(11).text)
		PageHtml = Replace(PageHtml,"{$TopicFunction2}",DvBoke.Page_Strings(12).text)
		PageHtml = Replace(PageHtml,"{$TopicFunction3}",DvBoke.Page_Strings(33).text)
		PageHtml = Replace(PageHtml,"{$WeatherList}",WeatherList)
		PageHtml = Replace(PageHtml,"{$Weather}",Weather)
		If DvBoke.System_Setting(4) = "1" Then
			PageHtml = Replace(PageHtml,"{$getcode}",DvBoke.Page_Strings(34).text)
			Dvbbs.LoadTemplates("")
			PageHtml = Replace(PageHtml,"{$Dv_GetCode}",Dvbbs.GetCode)
		Else
			PageHtml = Replace(PageHtml,"{$getcode}","")
		End If
	Else
		PageHtml = Replace(PageHtml,"{$TopicFunction1}","")
		PageHtml = Replace(PageHtml,"{$TopicFunction2}","")
		PageHtml = Replace(PageHtml,"{$TopicFunction3}","")
		If DvBoke.System_Setting(5) = "1" Then
			PageHtml = Replace(PageHtml,"{$getcode}",DvBoke.Page_Strings(34).text)
			Dvbbs.LoadTemplates("")
			PageHtml = Replace(PageHtml,"{$Dv_GetCode}",Dvbbs.GetCode)
		Else
			PageHtml = Replace(PageHtml,"{$getcode}","")
		End If
	End If
	Select Case sType
	Case 2
		PageHtml = Replace(PageHtml,"{$TitleNote}",DvBoke.Page_Strings(18).text)
		PageHtml = Replace(PageHtml,"{$Show_PostContent}",DvBoke.Page_Strings(15).text)
	Case Else
		PageHtml = Replace(PageHtml,"{$TitleNote}",DvBoke.Page_Strings(17).text)
		PageHtml = Replace(PageHtml,"{$maxlen}",MaxLen)
		PageHtml = Replace(PageHtml,"{$Show_PostContent}",DvBoke.Page_Strings(16).text)
		PageHtml = Replace(PageHtml,"{$Editmode}",EditMode)
	End Select
	
	If (Not (Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@cachebokebody") Is Nothing)) And Content="" Then
		PageHtml = Replace(PageHtml,"{$Content}",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@cachebokebody").text)
	Else
		PageHtml = Replace(PageHtml,"{$Content}",Server.HTMLEncode(Content))
	End If


	If Not IsDate(JoinTime) Then JoinTime = Now()
	PageHtml = Replace(PageHtml,"{$PostUserName}",Server.HTMLEncode(PostUserName))
	If (Not (Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@cacheboketopic") Is Nothing)) And Title="" Then
		PageHtml = Replace(PageHtml,"{$Title}",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@cacheboketopic").text)
	Else
		PageHtml = Replace(PageHtml,"{$Title}",Server.HTMLEncode(Title))
	End If
	PageHtml = Replace(PageHtml,"{$SearchKey}",Server.HTMLEncode(SearchKey))
	PageHtml = Replace(PageHtml,"{$PostTitleNote}",Server.HTMLEncode(PostTitleNote))
	PageHtml = Replace(PageHtml,"{$PostData}",FormatDateTime(JoinTime,1))
	PageHtml = Replace(PageHtml,"{$sCatList}",sCatList(sCatID))
	PageHtml = Replace(PageHtml,"{$stype}",sType)
	PageHtml = Replace(PageHtml,"{$Cat_Val}",CatID)
	PageHtml = Replace(PageHtml,"{$Lock}",IsLock)
	PageHtml = Replace(PageHtml,"{$Best}",IsBest)
	PageHtml = Replace(PageHtml,"{$RootID}",RootID)
	PageHtml = Replace(PageHtml,"{$PostID}",PostID)
	PageHtml = Replace(PageHtml,"{$action}",Act)
	PageHtml = Replace(PageHtml,"{$bokename}",DvBoke.BokeName)
	If DvBoke.BokeSetting(8) = "0" Then
		PageHtml = Replace(PageHtml,"{$isalipay}","")
		PageHtml = Replace(PageHtml,"{$Show_Payto}","")
	Else
		PageHtml = Replace(PageHtml,"{$isalipay}",DvBoke.Page_Strings(31).text)
		If sType = 3 And Request("action")<>"edit" Then
			PageHtml = Replace(PageHtml,"{$Show_Payto}",DvBoke.Page_Strings(32).text)
			If DvBoke.BokeUserID > 0 Then
				PageHtml = Replace(PageHtml,"{$paytomail}",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@useremail").text)
			Else
				PageHtml = Replace(PageHtml,"{$paytomail}","")
			End If
		Else
			PageHtml = Replace(PageHtml,"{$Show_Payto}","")
		End If
	End If
End Sub

Public Sub ShowForm()
		Response.Write PageHtml
End Sub

Public Property Get FormHtml()
	FormHtml = PageHtml
End Property

Public Function sCatList(ID)
	Dim PageHtml_Str,Rs
	Set Rs = DvBoke.Execute("Select * From Dv_Boke_SysCat Where sType = 1 Order By sCatID")
	Do While Not Rs.Eof
		PageHtml_Str = PageHtml_Str & "<Option value="""&Rs("sCatID")&""" "
		If Cint(ID) = Rs("sCatID") Then PageHtml_Str = PageHtml_Str & "selected"
		PageHtml_Str = PageHtml_Str & ">"&Rs("sCatTitle")&"</Option>"
	Rs.MoveNext
	Loop
	Rs.Close
	Set Rs=Nothing
	sCatList = PageHtml_Str
End Function

Public Function WeatherList()
	Dim Weather_A,Weather_B,Weather_A_Str,Weather_B_Str,i
	Weather_A = Split(DvBoke.System_Setting(13),"|")
	Weather_B = Split(DvBoke.System_Setting(14),"|")
	For i = 0 To Ubound(Weather_A)
		Weather_A_Str = Weather_A_Str & "<Option value="""&Weather_B(i)&"|"&i&""">"&Weather_A(i)&"</Option>"
	Next
	WeatherList = Weather_A_Str
End Function

End Class
%>